home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok82.lha / Mini / Beispiele / prim.mini < prev    next >
Text File  |  1993-08-15  |  343b  |  28 lines
  1. PROGRAM
  2.  
  3. VAR
  4.   a, b, c
  5.  
  6. BEGIN
  7.   a = 2
  8.   WHILE 1000 - a DO
  9.     b = 2
  10.     WHILE a - b DO
  11.       c = b
  12.       WHILE a - c DO
  13.         c = c + b
  14.       END
  15.       WHILE a - c + 1 DO
  16.         b = 1000000000
  17.         c = a + 1
  18.       END
  19.       b = b + 1
  20.     END
  21.     WHILE 1000000000 - b DO
  22.       PRINT a
  23.       b = 1000000000
  24.     END
  25.     a = a + 1
  26.   END
  27. END
  28.